home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Amiga Public Domain Connection
/
APDC Disk #005 - Amiga Basic Programs (198x)(Amiga Public Domain Connection)(US)[WB].zip
/
APDC Disk #005 - Amiga Basic Programs (198x)(Amiga Public Domain Connection)(US)[WB].adf
/
ColorArt
< prev
next >
Wrap
Text File
|
1988-03-13
|
1KB
|
42 lines
PRINT:PRINT
PRINT SPC(32);"C O L O R A R T"
PRINT
PRINT SPC(39);"By"
PRINT
PRINT SPC(35);"Rick Wirch"
PRINT
PRINT SPC(31);"Press Mouse Button"
WHILE B=0: B= MOUSE(0): WEND
WHILE B<>0:B= MOUSE(0): WEND
DEFINT a-z
DIM reg!(15)
SCREEN 1,320,200,4,1: WINDOW 2, "Color Art", (0,0)-(310,186), 0, 1
WINDOW OUTPUT 2
PALETTE 0 ,0/15,1/15,1/15 : PALETTE 1,0/15,1/15,1/15
FOR P = 0 TO 15: reg!(P) = P/15 : NEXT : z = 0 : RANDOMIZE TIMER
Loop:
CLS
COLOR 0,0:PAINT (160,100)
xo= 160: yo=99
ra!=RND*3.1416+.01
FOR i!=0 TO 18 STEP .05
x=150*SIN(i!)+160: y=90*COS(ra!*i!)+96
IF z>10 THEN
y1=90*SIN(ra!*i!)+96 : x1=150*COS(i!)+160: LINE(x,y)-(x1,y1),,bf
ELSEIF z>5 THEN
y1=90*SIN(ra!*i!)+96 : x1=150*COS(i!)+160
AREA(310-x1,186-y1): AREA(x1,y1): AREA(x,y): AREAFILL
ELSE
AREA(160, 99): AREA(xo, yo): AREA(x, y): AREAFILL: xo = x: yo = y
END IF
B= MOUSE(0)
IF B <> 0 OR INKEY$<> "" THEN WINDOW CLOSE 2: SCREEN CLOSE 1: END
COL=(COL+1)MOD 13
FOR P=2 TO 15: PALETTE (P+COL)MOD 13+2,reg!(z),reg!(P),reg!(P): NEXT
COLOR COL+2
NEXT
z = RND*15
GOTO Loop